home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / HYPERCAR / BUTTONS_ / LOCK_UNL.OCK / card_2849.txt < prev    next >
Text File  |  1989-08-17  |  2KB  |  89 lines
  1. -- card: 2849 from stack: in.OCK
  2. -- bmap block id: 2374
  3. -- flags: 0000
  4. -- background id: 2608
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8004
  11. -- rect: left=95 top=77 right=95 bottom=155
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Lock
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   repeat with x=1 to the number of cards
  23.     go card x
  24.     repeat with y=1 to the number of card fields
  25.       set lockText of card field y to true
  26.     end repeat
  27.   end repeat
  28.   repeat with x=1 to the number of backgrounds
  29.     go first card of background x
  30.     repeat with y=1 to the number of fields
  31.       set lockText of field y to true
  32.     end repeat
  33.   end repeat
  34.  
  35. end mouseUp
  36.  
  37.  
  38. -- part 2 (button)
  39. -- low flags: 00
  40. -- high flags: 8004
  41. -- rect: left=340 top=77 right=96 bottom=402
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Unlock
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   repeat with x=1 to the number of cards
  53.     go card x
  54.     repeat with y=1 to the number of card fields
  55.       set lockText of card field y to false
  56.     end repeat
  57.   end repeat
  58.   repeat with x=1 to the number of backgrounds
  59.     go first card of background x
  60.     repeat with y=1 to the number of fields
  61.       set lockText of field y to false
  62.     end repeat
  63.   end repeat
  64. end mouseUp
  65.  
  66.  
  67. -- part 3 (field)
  68. -- low flags: 01
  69. -- high flags: 2000
  70. -- rect: left=38 top=120 right=318 bottom=468
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 3
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: 
  79.  
  80.  
  81. -- part contents for card part 3
  82. ----- text -----
  83. Copy these buttons to any stack...
  84.  
  85. Click "Lock" to lock the text in all fields in the stack.
  86.  
  87. Click "Unlock" to unlock all fields within the stack.
  88.  
  89.